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Modified: 160ct80 Change the value of PRN_CRLF so that a Line on the 
terminal is printed aS <LF> <text> <CR> Susan Azibert 


13Jan81 Change all tests of status from FMS to BLBC RO,label 
and BLBS RO,label from CMPL RO,#2MS$_NORMAL ; :BNEQ label,etc. 


3. Fix PAS$SCONCAT to request read-only access instead of read-write access 
1-005 11-Aug-81 Paul Hohensee Changed to general addressing of external ro 
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0000 «SB ses = 
4 59 ;*e ** 
000 60 ies SECTION 4 “ 
ie SPECIAL COMPILER PROCE *e 

;*f L L OCEDURES *t 
i i sete es 
000 64 ies -- 
B38 65 SERRA RARER EAR EERE EAE EEA EAE EA AREER ERE ARES 
00 66 FERRER AREER EEA AERA AAA AKERKEKKERRKEKEAKKe Kee Ree ee 
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| $000 rt: sFor any file variable the following storage is assumed: 
| 909 $3 5 RCM RCC RSRSeS 
000 3 FSB: H POINTER : 
000078 ; "STATUS WORD 
0000 7h: (aC CCCenecece 
0000 io H LAST | 
Bop 6 ° ‘acre LINELIMIT | 
O30) FB oT INecouNT 
44 80 P (ee ee oe oe oe me oe a ee ee oe oe oe ee 
0000 81; | RECORD NUMBER } 
0000 82: j=§§$ j=  ccsceascecsceseces 
0000 83 ; RAB: } { 
0000 84; 44(HEX) BYTES 
0000 85 ; H » ‘ 
0000 86 ; . 
0000 87 ; : i 
0000 88> «== $$ nancanesescacecces 
0000 89 ; FAB: i { 
0000 90 ; 5SO(HEX) BYTES 
0000 91 ; H “ | 
0000 92; : 
0009 93; H ' 
0000 96 5 
0000 92 3 NAM: ' ' NOTE: The NAM block is allocated 
0000 96 ; 38(HEX) BYTES for the PASCAL logical files 
0000 97 ; H ‘ H *INPUT’ and ‘OUTPUT’ only. 
0000 98 ; ‘ 
0000 99 ; ' | 
0000 100 ; —««_—_ ee eeneeneennnnnn 
0000 101; s 
0000 102 ; Macro options 
0000 103; ! 
0000 104 -DSABL GBL ; no undefined references 
0000 105 ~ENABL FPT : rounded arithmetic 
0000 106; 
0000 107 ; External references 
0000 108 ; 
0000 109 -EXTRN PASSIOERROR 
00 110 -EXTRN PASSWRITELN 
6 00 111 EXTRN PASSOPEN 
000 112 -EXTRN PASS$CLOSE 
0000 113 EXTRN PASSCLOSEINOUT 
it Ny EXTRN PASSRESET 
0000 116 -EXTRN SYSSPUTMSG 3; messages to terminal 
0000 117 -EXTRN SYS$TRNLOG 
0000 118 -EXTRN LIBSGET_VM 
0000 119; : Te, 
0000 139 3; Provide definitions of system values 
0000 121; 
0000 \$¢ $F ABDEF 
0000 \s SNAMDEF 
0000 124 SRABDEF 
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v04-000 : -SEP=-1984 $5598: 47 PASCAL.SRCJPASIO4.MAR; 1 a Sy 
000 125 SRMSDEF ; for status code checkin $$ 
0090 } 8 SSSDEF ; system definitions . 4 
0000 } S ; PASCAL compiler constants op 
0000 150 ; NOTE: The constants below with the names *PASSC “eee are CH 
000 131 ; used in the PASCAL compiler with the names 'XXXRX'. If the CH 
0000 «(1 ¢ ; values in the compiler are altefed then the values” ables co 
444 } 2: must be altered accordingly. + 
00000101 0000 13¢ PASSC_DFLTRECSI = 257; ; default buffer size FA 
0000 136 ; PASSC_NIL = 0 3 wit pointer FA 
0000 137; ASSC_TRUE = ; TRUE FA 
0000 138; ASSC_FALSE = 0 3 FALSE FA 
00000000 0000 139 PAS$C_NOCARR = 0 3 no carriage control FS 
0000 140; PASS$SC_CARRIAGE = 1 ; FORTRAN carriage control FS 
0000 141; PASS$SC_LIST =_2 ; LIST carriage control | FS 
44 166 3 PASSC_PRN = 3 ; PRN carriage control 4: 
0000 144 ; PRN carriage control constants FS 
0000 145; FS 
0000 146; PRN_CRLF = *X8D01 ; PRN carriage control constant FS 
0000 147 : for <LF> <text> <CR> FS 
0000 148 ; PRN_NULL = *x0000 ; PRN carriage controi constant FS 
0000 149 ; for no carriage control IN 
0000 150; | IN 
0000 151 ; File status block constants IN 
0000 152 ; IN 
00000018 0000 153 FSBSC_BLN = “x18 ; FSB block Length IN 
0000 154 ; FSB$V_OPEN = 5 IN 
0000 155; FSBSV_EOF = a, | IN 
0000 156; FSBSV_EOLN = 2 IN 
0000 157; FSBSV_GET = “3 IN 
0000 158; FSBSV_TXT = 4 ; textfile ¢ IN 
0000 159 ; FSBSV_RDLN = : last poedh nay EADLN 
0000 160 ; FSBSV_DIR = 6 ; direct access flag LE 
0000 161; FSBSV_PUT = 7 LI 
0000 162 ; FSBSV_INT = 8 ; internal flag 
0000 163 ; FSBSV_PRMT = 9 3 prompt flag 
0000 164 ; FSBSV_OUTPUT = 10 ; OUTPUT file flag NA 
0000 165 ; FSBSV_ACTIN =_11 ; actual input flag | NA 
0000 166 ; FSB$V_DELZ =_30 ; delete file if empty NA 
0000001F 0000 167 FSB$V_INC = 31 ; included file flag NA 
6008 168 ; FSB$B_CC = 6 ; carriage control byte offset 
00 169; FSBSM_OPEN = “x0020 
00000002 0000 170 FSBSM_EOF = *x0002 
0000 171; FSBSM_EOLN = “x0004 
0000 176 : FSBSM_GET = *x0008 PA 
0000 173; FSBSM-PRMT = *x0200 PA 
0000 174; FSBSM_PUT = *x00000080 PA 
00000010 8908 175 FSBSM_TXT = *x0010 PA 
00000001 0000 176 FSBSM_RDLN = “x0001 PA 
000 177; FSBSM_DIR = *x00000040 PA 
B85 178 ; FSBSM_INT = ee On PA 
00 179; FSBSM~OUTPUT = “x040 PA 
4h 180 ; FSBSM_ACTIN = *x0800 PA 
40000000 2000 181 FSBSM_DELZ = *x40000000 PA 
| 
| 


eeeeeeeeeeeeerrreee 


Initializes the file control blocks for certain files used by the 
compiler. Specifically, it 


(1) clears the RDLN flag for the input file so that PASSEOF and 
PASSEOLN will never retrieve the next record 


(2) sets a flag to delete the output file if it is empty 


SOOQoooooooeoo 


(3) clears the textfile flag for the object file 


o 
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80000000 000 186 FSBSM_INC = *x80000000 
| 000 183; FSBSL_CNT = 36 ; Line count (textfiles) 
00000014 000 184 FSBSL_INC = 2 ; ZINCLUDE block address 
00 185 ; FSBSL_LIM = 12 3; LINELIMIT 
0000 186 ; FSBSL_LST = 8 3; LAST WORD OFFSET 
000 a : FSPSL_PFSB = 20 ; Related file FSB for prompting 
000 188 ; for INPUT, has address of OUTPUT FSB 
000 189 ; for OUTPUT, has address of INPUT FSB 
0000 190 ; (shares storage with include address 
0000 191 ; and direct access recor 
0000 135 ; buffer address) 
44 172 3 FSBSL_REC = 20 ; record buffer address for 
000 194 ; direct access (shares storage 
0000 195 ; with include address and related 
0000 196 ; file FSB) 
00000004 0000 197 FSBSL_STA = 4 ; status word offset 
0000 198; 
0000 199 ; Character constants 
0000 200; 
0000 201 ; TAB = *Xx09 
00000020 0000 $0¢ SPACE = *x20 
0000 203; DOLLAR = *X24 
0000 204 ; FORMFEED = “XC 
0000 205 ; STAR = “X2A 
0000 206 ; PLUS = *X2B 
0000 207 ; MINUS = “X2D 
0000 208 ; POINT = “X2E 
0000 209 ; ZERO = “x30 
0000 210; ONE = “X31 
0000 211; NINE = *X39 
0000 212; AA = “X41 
0000 213; DD = “X44 
0000 214 ; EE = “x45 
0000 215; 72 = “X5A 
0000 216; UNDERSCORE = “X5F 
0000 217; AA_SMALL = “X61 
0000 218 ; ZZ_SMALL = “X7A 
0000 219; 
0000 220; 
00000000 221 -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
0000 222 
0000 $$7 eee ee eee eee 
0000 24 . * 
0000 $ * PASSCOMPINIT * 
0000 § * * 
8 
5 
i 
$38 
34 
$2 
6 
* 
2 
| 
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0000 39 ; In addition, determines if the listing is ning to the terminal. If 
44! 40 ; the Listing is going to the terminal, the fourth (return) argument is 
000 41 ; set to 1, otherwise it is set to 0. 
0000 aX; : 
0000 43 ; Argument offsets 
0000 5¢$; 0p ber f ts (4) 
: : ; number of arguments 
00000004 0000 46 INP_DISP = 04 ; input file FSB 
00000008 0000 47 OUT_DISP = 08 ; output file FSB 
0000000C 0000 48 OBJ_DISP = 1 ; object file FSB 
00000010 444 ry TRM_DISP = 16 ; list _to_terminal flag (by reference) 
0000 51 ; Other constants 
0000 $26 : 
0000 253 Pasour: 
54 55 50 54 55 4F 24 53 41 50 0000 254 eASCII /PASSOUTPUT/ ; listing file logical name 
QOOA 255 SYSOUT: 
OOOA* OOOA $28 «WORD 20$-108 ; length of string 
54 55 50 54 55 4F 24 53 59 53 O000C 57 10$: ASCII = /SYSSOUTPUT/ ; standard output logical name 
0016 258 20$: 
0016 259 SYSERR: 
0009" C016 260 «WORD 40$-30$ ; length of string 
52 GF 52 52 45 246 53 59 53 Bost $6) tee? «ASCII /SYSSERROR/ ; error output logical name 
OOFC 0021 263 ENTRY ty lh teeter ian gees genre 
5E 00000088 8F C2 0023 264 SUBL2 #136,SP ; make room for translated names 
56 604 AC DO O02A 265 MOVL INP_DISPCAP) ,R6 
04 A601 CA O02E 266 BICL2 #FSBSM_RDLN,FSBSL_STA(R6); clear input RDLN flag 
6 OC AC DO 0032 267 MOVL. OBJ DISP(APS, 
04 A6 610 CA 0036 268 BICL2 #FSBSM_TXT,FSBSL_STA(R6) ; clear textfile flag 
56 08 AC DO O03A 269 MOVL OUT_DISPCAP) ,R6 
04 A6 40000000 8F C8 one sro BISL2 #FSBSM_DELZ,FSBSL_STA(R6); set to delete if empty 
Beee sf§ ; Now determine if Listing is going to terminal. 
BC AD B6 AF OA 28 0046 274 MOVC3 #10,PASOUT,-68(FP) ; move Listing logical name 
FC AD OA DO O004C 275 MOVL #10,-4(FP) ; set_length of logicai name 
00 dD 0050 276 PUSKL #0 ; arg3 (process-permanent flag) 
0052 277 ; is set to false 
FC AD OOF O03 278 PUSHAL =4(FP) ; argé (address of length) 
BC AD DF 005 279 PUSHAL ~68(FP) ; argi (address of string) 
OOOOOOA3S'EF O03 FB Bate $80 CALLS #3,PASS$TRANS ; translate logical name 
005F 28 3 Loop pyreuss names SYSSOUTPUT and SYSSERROR, translating them and 
OO5F 83 ; comparing the result to the translation of PASSOUTPUT. If either 
Ooer spe ; is equal, return TRUE; otherwise return FALSE. 
56 02 00 OO5F 286 OVL #2,R6 ; loop index , : 
57 AS AF DE 0062 287 MOVAL SYSOUT,R7 ; address of logical name string 
0066 88 COMPLOOP: ; compare translated names 
FF78 CD 8G2 A? 67 8 0066 89 MOVC3 = (R7),2(R7) ,-136(FP) ; move logical name_ 
B8 AD 67 3 006 90 MOVZWL (R7).-72(FP) : set_length of logical name 
01 bd 0071 3) PUSHL #1 ; arg3 (process-permanent flag) 
es 38 ; is set to TRUE 
4 AD OF 007 9 PUSHAL (dg. : arge (address of Length) 
FF78 CD ODF Baae 94 PUSHAL -156(FP) ; argl (address of string) 
OOO0OOA3'GF O03 FB OO7A 95 CALLS #3,G*PASSTRANS ; translate logical name 


[ 
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| 
BB AD FC AD D1 0081 96 CMPL =4(FP) ,=-72(FP) ; are lengths equal? 
OF 12 Boge 97 BNEQ TRYNX ; No=-try next logical name 
FF78 CD BC AD FC AD 29 Be 98 CMPCS) «= =G( FP), -68(FP),-136(FP) ; else, are strings equal? 
05 12 0090 99 BNEQ TRYNXT 3 No=-try next logical name 
10 BC 01 DO 0092 00 MOVL #1,QTRM_DISPCAP) ; yes~--set return value TRUE 
04 0096 01 RET ; return TRUE to caller 
0097 be TRYNXT: ; try next logical name 
| 57 FF?B CF DE 0097 30 MOVAL SYSERR,R7 : address of next logical name 
| C7 56 «FS «(009C «= 304 SOBGTR R6,COMPLOOP ; loop through all logical names 
10 BC D4 O09F 305 CLRL  aTRM_DISP(AP) ; set return value FALSE 
04 a0As 06 RET ; return FALSE to caller 
Boas B83 ; Routine to translate logical names, used by PASSCOMPINIT above. 
OO0A3 10 PASSTRANS: i; routine to translate names 
0700 Q0A3 a3 -WORD “M<R8B,R9,R10> 
SE 10 C2 OQOAS \¢ SUBL2 16,SP ; make room for $TRNLOG args 
FC AD 04 AC DO QOAB = 31 MOVL 4(AP) ,-4( FP) ; address of eter 
F8 AD O08 BC DO OOAD 314 MOVL @8 (AP) ,-B(FP) ; length of logical name 
F4 AD 04 AC DO O0B2 315 MOVL 4(AP) ,~12(FP) ; address of result 
FO AD 50 8F 9A 00B7 316 MOVZBL #°0,-16(FP) : length of result 
58 D4 O0BC 317 CLRL n8 ; clear colon flag 
OOBE 318 TRANS: $TRNLOG_S LOGNAM=-8(FP),- ; translate the name 
OOBE 319 RSLLEN=@8 (AP) ,- 
OOBE 320 RSLBUF =-16 (FPS ; 
18 58 €9 O0D4 321 BLBC R8,CHKCOL ; branch if not trying without colon 
00000629 8F 50 D1 O00D7 322 CMPL RO, #SS$_NOTRAN ; was translation successful: 
OE 12 OODE 323 BNEQ 10$ 3 yes--continue i 
59 08 BC DO ONEO 324 MOVL a8(AP) RO ; else put colon back and quit 
04 BC49 3A 90 ODES 325 MOVB #*A/:/,84(AP) CROJ ; put colon back 
08 BC 59 O01 C1 Q0E9 326 ADDL3 = #1,R9,a8( AP) ; set return Length 
58 04 OQOEE 327 10$: CLRL R8 ; not or without colon any more 
23 11 OOFO 328 BRB CHKHDR ; go check for 4=byte header 
OOF2 329 CHKCOL: ; check if translate failed due to colon 
1F OC AC EB OQOF2 330 BLBS 12(AP) ,CHKHDR : if process-perm name, continue 
00000629 8F 50 01 OOF6 331 CMPL RO, #SS$_NOTRAN : translation successful? 
16 12 QOFD 332 BNEQ CHKHDR 3 yes--continue 
59 08 BC DO OOFF 333 MOVL @8( AP) ,R9 ; translated Length 
59 D7 0103 334 DECL R ; index of last character 
3A «604 BC49) 91 «0105 335 CMPB @4(AP)CR9],#*A/:/ ; last character a colon? 
09 12 Q10A 336 BNEQ CHKHDR 3 no--continue ; 
08 BC D7 010C $35 DECL a8 (AP) ; else remove colon and try again 
58 01 DO 010F 38 MOVL #1,R8 ; set he to show trying again 
50 01 00 giie 44 MOVL #1,R0 ; set status to continue 
011 40 CHKHDR: ; check for 4-byte header | 
1B 04 BC 91 Q115 03 CMPB @4(AP) ,#*°X1B ; translated name begins with esc? 
eF 8612 «0119 2g BNEQ CHKPRM ; No--make sure not process-perm 
$9 604) =O 0118 4 MOVL #4,R9 ; initialize number of bytes to remove 
SF BF 04 BC49) =—91—COO1TE 66 CMPB 4 (AP) (ROD, #*A/_/ ; translated name begins with ‘_*? 
| 02. 12 bigs 45 BNEQ 108 j No--remove just first 4 bytes 
59 «D6 «(0126 46 INCL R9 ; else remove 5 bytes 
SA 08 BC 59 C3 0128 47 10$ SUBL RO, aB(AP) R10 ; 710 <= new string Length 
04 BC 04 8649 SA 28 Oigd 48 MOVC R10,a4(APSCR9],a4(AP) =: move remaining chars to front 
5A D7 0134 49 DECL ; 710 <= index of last character 
3A 6004 BC4A D1 4 6 50 CMPB @4(AP)CR10) ,@*A/:/ ; name ends with colon? 
7 #13 «0138 51 BEQL 20% 3 yes--continue 
A D6 013d 52 INCL R10 ; else add colon at end 


EOE aS... 
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04 BCGA 3A 90 013F 
| 08 BC SA (01 OC1s(0144 208: 
04 0149 
CHKPRM: 
| 11 0C AC EB 
| 00000629 8F 50. ODI 
08 13 
FB AD 08 BC 00 
FFSF 31 
04 RET: 


00000004 
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003C 
4BC 9% 
54 AC D0 0 
: ie. TA Pos 1 
55 00000044 8F 52 (C1 ¢ 
24 A200 
24 A2 08 AC 00 4 
O02 3F AS 91 5 
07 «12 $ 
2c A210 AC 0 
03 11 : 
2C A2 4 , 
0001827A 8F 50 OD! : 
18 12 4 
0D 04 AS =«(1F- CI 5 
QOOOO37B"EF 6C FA BS 
148C 01 90 i] 
oo 1 408 
409 
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MOVB #*A/:/,84(AP)CR10] 
ADDL3) = #1,R10,a8(AP) update length 
RET return 


check if process permanent name 


BLBS 12(AP) ,RET ; return if process permanent name 
CMPL RO #SS$_NOTRAN ; translation was successful? 

BEQL RE 3 no--return 

MOVL @8( AP) ,-B(FP) ; update length of $TRNLOG arg 
BRw TRANS ; translate recursively 

RET ; return to caller 

-PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 


Reeerrrrrererrerrree 


« . 
* PASSREADINPUT * 
” « 
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Reads the next record into the user supplieed buffer returning the 
length read. The end-of-file flag is altered as need be. 


Argument offsets 


120$: 
130$: 


100$: 


AP ; number of arguments (4) 
FSB_DISP = 04 ; FSB address 
BUF _DISP = 08 ; buffer address 
LEN_DISP = 12 : Length of buffer (by reference) 
SOS _DISP = 16 ; SOS Line buffer (by reference) 
incl_eof_disp = 20 ; eof on INCLUDE'd file flag 
; (byte by ref) 
; 0 = no eof 
3 1 = eof hit 
-ENTRY PASSREADINPUT,“*M<R2,R3,R4,R5> 
clrb a@incl_eof gisptee ; assume no eof 
MOVL FSB_DISP(AP) ,R4 ; = address of FSB 
ADDL3) R4,¥7FSBS$C_BLN,R2 >; R2 = address of RAB 
ADDL3 R2,#RABSC_BLN,RS ; RS = address of FAB 
MOVL RABSL_UBFTR2) ,R3 > save buffer address 
MOVL BUF _DISP(AP) ,RABSL_UBF(R2); set new buffer address 
CHPB FABSB_FSZ(R5S .#2 ; check for SOS Line numbers 
MOVL SOS_DISP(AP) ,RABSL_RHB(R2) 
BRB 1308 
CLRL = RABSL_RHB(R2) 
$GET RAB=R2 
CMPL RO, #RMS$_EOF 
BNEQ 1108 
BBC #FSBSV_INC,FSBSL_STA(R4) ,100$ 
CALLG (AP) ,PASSEXCLUDE 
movb #l,aincl_eof_disp(ap) ; set eof flag 
BRS 1148 


Ne ee ee ee st —- 


gS 
| PASSIO_ COMP ; PASCAL RMS Linkage 16-SEP=1984 02:08:13 VAX/VMS Macro V04-00 Page 9 | PAS 
. ett $5 :98:43 PASCAL.SRCJPASIO4.MAR; 1 ' (Vi vOé 
04 AG 0 C8 O1B2 410 BISL #FSBSM_EOF,FSBSL_STA(R4); set EOF flag 
0 11. 0186 411 BRB 111$ 
0188 41g 1108: | 
OA 50 =«E9 Ries DF 1118 BLBC RO,9108 ; branch if error 
0c BC 22 ag 32 01BB 415 CVTWL RABSW_RSZ(R2),@LEN_DISP(AP); store Length 
4 A2 DO 0100 416 MOVL R3,RABS$L_UBF (R2) ; restore buffer address 
04 0104 417 RET 
O1cS) 418 ; 
01¢5 419 ; Input error 
01C5 = 420 ; 
pice 421 910$: 
50 odd O1C5 4 ¢ PUSHL RO 
7E 78 AG DA OIC? & MOVZBL <RABSC_BLN+FABSB_FNS>(R4) ,-(SP) 
70 AS =D SCOOTCB 4424 PUSHL <RABSC_BLN+FABSL_FNA>(R4) 
OOOO00000'GF 03 FB OQICE 425 CALLS #3,G*PASSIOERROR 
01D5 9426 ; 
01D5 427 ; 
000001D5 428 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
0105 429; 
01D5 430 : HeTeKe eee eee eee tett 
0105 431 ; * * 
0105 432 ; * PASSWRITEOUTPUT * 
01D5 433; * PASSWRITEOBJ * 
01D5 = 434 ; * * 
01D5 435 ; eeeeeeeerererreeeeee 
01D5 436 ; 
01D5 437 ; Writes the string to the designated file. The buffer is NOT checked 
0105 438 ; for overflow. 
0105 439; ‘ 
01D5 440 ; Argument List 
01D5 441 ; 
01D5 442 ; AP ; number of arguments (3) 
00000004 0105 443 FSB_DISP = 04 ; FSB address 
00000008 0105 444 BUF _DISP = 08 ; buffer address 
0000000C 0105 445 LEN_DISP = 12 : buffer Length (by reference) 
0C1D5 446 PASSWRITEOBJ:: 0 
007Cc 0105 447 -ENTRY PASSWRITEOQUTPUT, “*M<R2,R3,R4,R5,R6> 
56 04 AC DO O1D7 448 MOVL FSB_DISP(A ;_R6 = address of FSB 
00 B86 O08 BC OC BC 28 OIDB 449 movC3) aLen DISP(APS ,aBUF_DISP(AP) ,a(R6); move string 
66 53 dO O1E2 450 MOVL R3,(R6) ; set pointer 0! 
56 DD O1E5 451 PUSHL R6 
00000000'GF 01 FB O1E?7 126 CALLS #1,G*PASSWRITELN 
04 O1FE 45 ET 
OIEF 454 ; 
Q1EF 455; 
vatneg 4) $28 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT | 
O1EF 458 : eeeeeerererereteeeee | 
O1EF 459; * * 
O1EF 460 ; *  PASSPUTMSG * 
OIEF 461 ; * * 
O1EF 236 : eerererretrererteeee 
QIEF 463 ; 4 ? 
QIEF 464 ; Writes a string to the terminal using the SYSSPUTMSG system service. 
Q1IEF 465 ; A Pascal file (FSB) is passed as argument, and the string is stolen 
OIEF 466 ; from its buffer. If the fourth argument 1s true the buffer is cleared, 
| 
L 


F 3 
PASSIO_ COMP : PASCAL RMS Linkage 16-SEP-1984 02:08:13 VAX/VMS Macro V04-00 a 
v02-000 . Breen 8Re Boies) PANSURS ceeseaN cca tans: = Pame 19 


QIEF 467 ; otherwise it is left alone. As for PASSWRITEOUTPUT, buffer overflow 
Q1EF 468 ; is NOT checked. 
QIEF 469 ; 
Q1EF 470 ; Argument List 
OIE 193 : AP b f (4 
’ ; number of arguments ) 
00000006 OlEF 478 FSB_DISP = 04 : FSB address © 
00000008 OIEF 474 BUF _DISP = 08 ; buffer address 
QOOOOO00C OIEF 475 LEN_DISP = i2 ; buffer length (by reference) 
00000010 OIEF 476 RST_DISP = 16 3; reset flag (by value) 
Q1EF 477 ; 0: do not reset line to be empty | 
gree oes : 7: reset Line after sending to terminal 
007C OUEF 480 ENTRY PASSPUTMSG,“M<R2,R3,R4, R5, R6> 
18 C2 O1F1 481 SUBL2 #24,SP + room for message vector 
O1F4 tes ; and _descriptor 
56 04 AC DO OQO1FS 48 VL FSB_DISPC(AP) R6 = address of FSB 
00 B6 08 BC OC BC 28 O1FB 484 mMOVC3 : EN DISP PLAPS SBur -DISPCAP), a(R6); move string 
66 53 DO OFF 485 VL » (R6) ; set pointer 
E8 AD 00010003 8F DO 0202 486 MOVL K10003,-24 (FP) ; vector Length and flags 
EC AD 00801134 8F DO O20A 487 MOVL #110005, =20(FP) i message identification 
FO AD 01 00 0212 488 MOVL #1,-16(FPS number of fao arguments 
F4 AD FB AD ODE 0216 489 MOVA -B(FP),-12(FP) ; address of descriptor 
40 AG) 6C3: «(0218S 490 SUBL <F SB$C_BLN+RABSL ROF>(R65 27; compute and store length 
F8 AD 53 O21E 491 R3,-8TFP) * descriptor 
F8 AD D7 O221 492 DECL -8(FP) kip carriage control byte 
40 A6 DO 0224 493 MOVL <FSB$C_BLN+RABS$L pares § move address to descriptor 
FC AD 0227 494 -4(FPY 
FC AD D6 0229 495 INCL -4(FP) : skip carriage control byte 
ve vO Wet 96 LRQ -(SP) ; arg and arg3 are NULL 
E8 AD ODF O22E 497 PUSHAL <=-24(FP) ; argl: address of message vector 
O0000000'GF 03 FB 0231 498 CALLS $260 S1SeeUrnes : send message to terminal 
04 10 AC €9 0238 499 BLBC RST_DISP(AP) ,10$ done if not to reset 
0 A6 DO O23C 500 MOVL <F SB$C_BLN+RABSL_ RBF>(R6S =: ; reset Line to be empty 
66 O23F 501 (R6) 
04 0240 502 10$: RET ; all done 
0241 503; 
0241 504; 
00000241 505 -PSECT _PASS$CODE, PIC, EXE,SHR,NOWRT 
0241 506; 
0241 507 ; eeerrrererrerrrreees 
0241 508 ; * * 
0241 509 ; # PASSTAB * 
0241 510; ® ® 
0241 511; eetererrrrrrerereres 
0241 216 ; 
0241 513 ; Advances the pointer to a new position blank filling the spaces 
0241 514 ; skipped. If the tab position is either less than the current position 
bsei 212 3; or greater then the end-of-Line position the tab is ignored. 
0241 517 ; Argument offsets 
0241 518; 
0241 519; os ; number of arguments (2) 
00000004 0241 520 FSB_DISP = 04 ; FSB address 
00000008 0 rt 2 1 TAB_DISP = 08 ; TAB position 
007¢ 41 § g ENTRY PASSTAB,“M<R2,R3,R4,R5,R6> 


—_—— 
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v04-0006 ° mets Ps 85:98:33 PASCAL.SRCJPASIO4.MAR;1 ° (1). VA) 
56 04 AC DO 02463 524 MOVL_ FSB_DISP(AP),R6 ; address of next byt MA( 
RRO A ADDL3 RGA FFSBSC BLA. i address of RAB to RS 
50 66 28 A3 C3 (0268 «5.26 SUBL3 RABSL_RBFTR3),(R6),RO ; old position to RO 
51 8 AC DO 0250 é 7 MOVL TAB_DISP(AP),R1 3 new position 
3S F..3 & Ges 8 SUBL3. RO,R1,RO 3 amount to move pointer 
13 15 0258 599 BLEQ 420 : done if negative 
00000101 8F 51 D1 O25A 530 CMPL R1,#PASS$SC_DFLTRECSI i; check if too far to go 
OA 14 0261 23) BGTR i; ignore request 
0086 50 20 66 OO 2 Bgee 5 ¢ MOVCS #0, (R6),#SPACE,RO,a(R6) ; move blanks 
66 53 DO O26A 53 MOVL R3, (R6) 3; update pointer 
026D 534 $420: 
04 026D 23 RET ; done 
O26—E 536; 
O26 537 ; 
OO00026E 538 -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
O26 539; 
026E 540 ; eeeeeeeeeeeeeeeeeeee 
O26—E 541; * * 
O26E 2¢6 3 *  PASSINCLUDE * 
O26E 543; * ® 
026E 544 3 Ree eee ee eeeeeeeeee 
O26 545 ; 
026E 546 ; Saves the necessary information about the current file so that it may 
Q26— 547 ; be restored, closes the current file, and opens/resets the included 
Osee 278 ; file. The included block has the following storage allocation: 
O26E 550; 3322222222221111111111 
She3 23! ; 10987654321098765432109876543210 
026E 326 : H next include block address ' 
O26— 554; sstaheahetetaatataatatetedetebahetetanepenenrtenenenanane 
O26— 555; H current position in buffer : 
026E $56 5; ewww ene w wenn ee ennneenesesese= 
O26— 557; ‘ record file address 
O26E 558 5; —=«—_—_—s wren neneneeccnna 
O26E 559; : ‘ : 
026—E 560 ; - : quessssasessoses 
O26E 561 ; H directory identification ;: 
026E 26¢ 5 ere w eee e we enw ween neeeeeeo= 
O26 563; : } 
O26E 564 ; - : - 
O26—E 565; : device : 
O26E 566 ; - ; taf : - 
026E 567 ; ; identification } 
026 568 ; - - 
026E 569 ; : : 
026E 570 ; smaneinens: P-reemen~ereaniee 49" waRDNT amma 
O26— 571; : file identification 
026E 76 5 te roweerocecce - 
QO26E 573; : . 
BSce ee © oS OSES. pee 
026 575; 
0000002A 6E 276 INCSC_BLN = 42 
00000000 6E 77 INCSL_NXT = 00 
00000004 6E 278 INCSL_POS = 04 
00000008 026E 79 INCST_RFA = 08 
OOOOO0O00E O26E 580 INC$T_DID = 14 


/ PAS$IO_COMP ; PASCAL RMS Linkage 16-SEP-1984 :08:13 VAX/VMS Macro v04-00 Pp 
V02.000 . ett fi 85:98:37 PASCAL.SRCJPASIO4.MAR; 1 — 


00000014 6E 1 INC$X_DVI = ¢0 
00000024 3 ; INCST_FID = 36 
6E 4 ; Argument offsets 
0 4: 286 AP b f (7) 
; 3 number of arguments 
0000004 O26 389 FSB_DISP = 04 : FSB address © 
00000008 6— 588 BUF_DISP = 08 ; character buffer address 
Q000000C O26 589 POS_DISP = 12 ; current buffer position (by value) 
00000010 O26€ 590 LST_DISP = 16 ; last buffer position (by reference) 
00000014 036 23) spec_disp = 20 ; vdeaiay meet MY sae string Length 
; value 
00000018 026E 238 LEN_DISP = 24 : file name string length (by value) 
O000001C O26E 594 INC_DISP = 28 3; recursive include flag 
O26 595 : 0 => ok : 
O26 596 3 1 => recursive 
O26—E 597; 
O26E 598 ; Constants 
O26E 599; 
0000002A O26E 600 INCLBLN: .LONG INC$C_BLN 
O7FC Ore 60¢ -ENTRY PASSINCLUDE,*M<R2,R3,R4,R5,R6,R7,R8B,RI,R10> 
56 04 AC DO 0274 604 MOVL FSB_DISP(AP) ,R6 ; R6 = address of FSB 
57 18 56 C1 0278 605 ADDL3 R6,¥FSB$C_BLN,R7 ; R7 = address of RAB 
58 00000044 8F 57 C1 O027C 606 ADDL3 R7,#RABSC_BLN,RB ; R8 = address of FAB 
59 00000050 8F 58 (C1 Bees 444 ADDL3) = R8,#FABSC_BLN,RO ; RO = address of NAM 
028C 609 ; Allocate memory for include block 
028C 610 ; 
5E 04 C2 O28C 611 SUBL2 4#4,SP 
5A 5E DO O28F 612 MOVL SP,R10 ; R10 = address of memory address 
SA DD 0292 613 PUSHL R10 
D7 AF DF 0294 614 PUSHAL INCLBLN 
OO0O00000'GF 02 FB 0297 615 CALLS #2,G*LIBSGET_VM 
03 50 8 O29E 616 BLBS RO,101$ 
0091 31 O2Al 617 BRW 916$ 
Q2A4 618 ; ; : : 
O2A4 619 ; Save include information 
02A4 620 ; 
O2A4 621 1018: ; 
6A 00 aS Ae o¢¢ MOVL (R10) ,R10 ;_R10 = address of include block 
6A 14 A6 DO O2A7 62 MOVL FSBSL_INC(R6), INCSL_NXT(R10) 
AA OC AC DO OGAB 634 POS_DISP(AP) , INCSL_POS(R10) 
08 AA 10 A7 06 28 0280 625 MOVC3 #067RABSW_RFA(R7) , INCST_RFA(R10) 
OF AA 2A A9 06 38 02B6 626 MOVC3 #06,NAM$W~DID(R9). INCST_DID(R10) 
14 AA 148A 10 8 O2BC 627 MOVC #16, NAMST_DVI(R9), INC$X_DVI(R10) 
24 AA 24 A9 «0628 Oe¢ 6 8 MOVC3 #06, NAMSW~FID(R9), INCST—FID(R10) 
Oe¢ 686 ; Blank out remaining part of Line 
51 Oc AC 01 C3 0568 632 SUBL #1,POS_DISPC(AP) ,R1 ; R1_ = substring offset 
50 108C OC AC C3 0 CD 63 SUBL3 POS_DISP(AP),a@LST_DISP(AP) ,RO 
50 06 D ore INCL RO ; RO = gubstr ing Length : 
08 BC41 50 20 66 2c 8 4 ? 5 mMOVCS #0, (R6),#SPACE,RO,@BUF_DISP(AP) R11]; blank out substring 
02DD 835 ; Fix FSB 


ee ee 
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DD 638 H 
14 A6_ SA 0 DD 639 MOVL R10,FSBSL_INC(R6) 
04 A6 80000000 BF Cc 3 640 BISL2 #FSBSM_INC,FSBSL_STA(R6); set include flag 
kiee 646 ; Close current file and open included file 
56 DD 6 E9 644 PUSHL R6 
Q00000000'GF 01 FB 8 Eg 22 CALLS #1,G*PASSCLOSEINOUT 
00 od 0 5 647 PUSHL #PAS$C_NOCARR ; carriage control -- not used 
FFFFFEFF 8F OD O2F4 648 PUSHL #-PASSC_DFLTRECSI ; no buffer allocated 
7E = 7C O2FA 649 CLRD -(SP) ; variable length, sequential access 
18 AC DD O2FC 650 PUSHL  LEN_DISP(AP) ; file name string Length 
OC AC D7? O2FF 651 DECL POS_DISP(AP) 
50 OC AC 14 AC C3 0302 626 SUBL3 spec_DISP(AP),POS_DISP(AP),RO 
50 D7 0308 65 DECL R ; 
08 BC40 9F O30A 654 PUSHAB @BUF _DISP(AP)CRO] ; file name string address 
56 DD O30E 655 PUSHL R6 ; fsb address 
00000000'GF 07 FB §319 628 CALLS #7,G*PASSOPEN 
baie 028 ; Check for recursive includes 
14 A6 DD 0317 660 PUSHL FSBSL_INC(R6) ; head of include List 
59 DD OQO31A 661 PUSHL R9 ; address of NAM block 
O000034A'EF 02 FB Q31C 666 CALLS #2,PASS$INCHECK . 
ic BC) 65500 90 8353 08? MOVb RO,@INC_DISP(AP) ; return recursive flag 
0327 665 ; Reset input file 
0327 666 ; 
56 DD 0327 667 PUSHL R6 
00000000'GF 01 FB 3T94 668 CALLS #1,G*PASSRESET 
04 A6 «01 «CA 0330 669 BICL2 #FSBSM_RDLN,FSBSL_STA(R6); clear RDLN flag 
04 0334 670 RET 
0335 671 ; ; 
0335 ore ; Heap overflow on include 
0335 673; 
0335 674 910%: 
50 DD 0335 675 PUSHL RO 
7E_- 8324 BF = C0337) = 676 MOVZWL #*X8324,-(SP) 
7E 34 AB 9A 033C 677 MOVZBL FABSB_FNS(R8),-(SP) 
2C AB DD baee 678 PUSHL FABSL_FNA(R8) 
00000000'GF 04 FB 034 679 CALLS #4,G*PASSIOERROR 
034A 680 ; 
O3eA 681 ; 
0000034A oes -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
034A 683 ; 
034A 684 ; eeererrrerrererreeee 
034A 685 ; * * 
034A 686 ; *  PASSINCHECK * 
034A 687 ; id * 
034A 688; eeeeteeerereeeeeeeee 
034A 689 ; yr . - . : 
034A 690 ; Checks for recursive included files by traversing the Linked List 
034A 691 ; of included files. 
O34A O36 : 
034A 693 ; Argument offsets 
034A 694 ; AP ; number of arguments (2) 


Boe ere ee 


; Restore NAM block and cpen previous file by NAM block 


_— os a mas —— ee a eee EEE —— a a —— = _ . 
j 
| PASSIO_ COMP PASCAL RMS Link e 16-SEP-1984 13° VAX/VMS M v04-00 P 14 PA‘ 
: inkage “SEP- :08: acro - age : 
‘voe=000 . o7SEp= 1986 5:93:33 UPASCAL. SREIPASIO“. MAR: 1 . (1) voé 
a4 034A 695 NAM_DISP = Se ; current input file name block 
0000008 0 " 24) LNK_DISP = 08 ; head of included file List 
00C0 6 4A 698 «ENTRY PASSINCHECK,*M<R6,R7> 
56 04 AC «(0 (034C $99 MOVL §NAM_DISP(APS ,R6 ; R6 = address of NAM block 
57 Ss 08 at DO 0350 00 MOVL LNK_DISP(AP) ,R7 ; R? = address of first include block 
0 11. 0354 701 BRB 1308 
Be20 oe 1208: 
57 67 DO 0356 70 MOVL INCSL_NXT(R7) ,R7 ; get next include block 
O328 704 = 1308: 
50 D4 0359 705 CLRL RO ; set RO to FALSE 
57 be 3328 706 TSTL = RR? ; any more? 
1B 1 5D 6707 BEQL 899$ ; 
14 A716 AG Mb 3 Oa7E oS ag #38 NAMST_DVI(R6),INCS$X_DVI(R7); check device 
OE AZ 2A AG 06 3 tat oy BnEG #06 ,NAMSW_DID(R6) ,INCST_DID(R7); check directory 
24 A? 24 AG 4 $3 b36F ie Hag + eterna Lease msamacsi fade check file id 
50 01 DO 0377 714 MOVL #1,R0 ; set RO to TRUE 
037A 715 899%: 
04 O37A 716 RET 
037B 717; 
0378 718; 
sated at, -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
0378 721 : Reeeeeeereeeeeeeeeee 
037B 722; * * 
0378 723: *  PASSEXCLUDE * 
037B 724; . * 
0378 725 ; eeeeeeeeereeereereee 
037B 726; P 
0378 727 ; Called when an end-of-file is encountered on an included file. The 
0378 728 ; current file is closed and the previous file is opened and set to 
0378 163 ; the last record access on the previous file. 
0378 730; 
0378 731 ; Argument offsets 
0378 £36 : 
0378 733; Ar ; number of arguments (3) 
00000004 0378 734 FSB_DISP = 04 ; FSB address 
00000008 0378 735 BUF _DISP = 08 ; character buffer 
0000000C O38 £38 LST_DISP = 12 ; last buffer character 
O7FC O78 o38 -ENTRY PASSEXCLUDE ,“M<R2,R3,R4,R5,R6,R7,R8B,R9,R10> 
56 04 AC DO 0370 739 OVL. FSB_DISP(APS ,R6 
+, 6h 6/!hUC<CSCé‘<C YC 740 ADDL R6,7FSB$C_BLN,R7 ; R7 = address of RAB 
58 00000044 8F 57 C1 0385 741 ADDL R7, #RABSC_BLN,R8 ; R8 = address of FAB 
59 00000050 8F 58 (1 b3ee rg ADDLS R8,#FABSC_BLN,RO ; R9 = address of NAM 
Bao8 744 ; Close current file 
395 745 ; 
56 DD 0395 746 PUSHL R6 
00000000'GF 01 FB tae ee CALLS #1,G*PASS$CLOSEINOUT 
396 749 
1943 750 
039E 751 


MOVL FSBSL_INC{R6) ,R10 ; R10 = address of include block 


ee 


3 
_PAS$1O_ COMP ; PASCAL RMS Links. 16-SEP-1 3 VAX/VMS Macro v04-00 Page 15 
1022090 g- -SEP-19 38 85: 95: i PASCAL.SRCJPASIO4.MAR;1 . (1) 
4 A6 6A 03A2 £3 MOVL INCSL_NXT(R10) ,FSBSL_INC(R6); restore next pointer 
2A Ag OF AA 6 A6 f MOVC3 #6, INCST_DID(RIO) ,NAMSW_DID(R9); directory id 
ag 1G AA | AC 754 mMOVC #16, INCSR_DVI (RIO) NAMST DVI(R9S; device id 
24 Ad My, 6 B 755 MOVC #06, INCST-FID(R10) ,NAMSW_FID(RO); file id 
04 AB 07600000 8s. B 136 BISL #F ABSM_NAR. FABSL_FOP(RB) > open via NAM block 
0 oD C 75 PUSHL #PAS$C”-NOCARR 3 carriage control -=- not used 
FFFEFFEFF . ! : £28 ty O PASSE DFLTRECSS : no buffer allocated 
se: a 
OOO00000'GF O07 FB O 33 ree CALL #9, G*PASSOPEN 
04 AB 01000000 BF CA $302 62 BICL #FABSM_NAM,FABSL_FOP(R8); cancel NAM block access 
0300 £65 : Test if still an included file 
ag OF GR ee ERTL Fagg ince 
04 A6 80000000 8F CA O3E2 769 BICL2 #FSBSM_INC,FSBSL_STA(R6); not included, clear flag 
Bah EP | rane 
O3EA 7 > Restore last record read via random access by RFA 
1E A? 02 «490 O3EA 774° MOVB_ #RABSC_RFA,RABS$B_RAC(R7) 
10 A? O08 AA 06 28 tH ot? aovts £06.18 , INCST_RFA(R10) ,RABSW_RFA(R7); record file address 
12 50 €9 O3FD 777 BLBC RO,91 Os branch if error 
1E A7 00 90 Bene ore MOVB #RABSC _SEQ,RABSB _RAC(R7) : restore sequential access 
Bebe reo : Blank out first part of record already read 
50 04 AA 01 C3 0404 782 : SUBL3 #1,INC$L_POS(R10),RO ; RO = Length to blank 
08 Bc 50 20 O08 BC O00 2 Reet ey MOVC5 #0. aBUF _DISPC(AP), ASPACE RO, aBUF _DISPCAP) 
oS Fi 
0412 787 : Read error 
pels 788 ; 
50 pp 0413 790 usm — RO 
7E 34 A8 9A 0414 791 MOVZBL FABSB_FNS(R8) ,-(SP) 
2C AB DD 0418 79 PUSHL FABSL_FNA(R8 
00000000'GF 03 FB O041B 79 CALLS #3,G*PASSIOERROR 
Bs 
00000498 196 : .PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
a oe : SURESH REREAD INNES 
04 g 800 ; e PASSCONCAT =—* 
a § 4 : Reeeeeeeeerereeeeeees 
Be ope : Called when concatenated input files existed 
4 ° 
Be ane : Argument offsets 
0422 808; AP ; number of arguments (4) 


PAS$10_COMP ; PASCAL RMS Link 
Ftd Se SCAL RMS Linkage 
80000008 4 
0000008 04 
Boone 4 
0000001 Be 
OOFC 04 : 
04 


: Close 


5 
QO000000'GF 0 


“ 
o 
Oo 
Fs 
Pid 
oO 
J 
Oo 
oO 
= 
—— & COCO Oe & &rorore‘rorry 


04 A6 80000000 BF CB 0431 


00 
FFFFFEFF or DD 0438 
10 AC DD 0443 
OC A 
52. OC AC 10 as C3 0449 
08 BC42) =F 0451 


56 
O0000000"GF O07 FB 
04 A6 80000000 8F CA 


: Reset 


56 
Q0000000'GF 01 FB 
04 A6 «(01 


~ 
Oo 
o 
= 
= 
— 
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Oo ; FAB address 

§ ; character buffer 

1 ; last character position 

16 ; length of name 

PASSCONCAT, “M<R2,R3,R4,R5,R6,R7> 

FSB_DISP(AP) ,R6 


file 


R6 
#1,G*PAS$CLOSEINOUT 


: Open concatenated file 


#FSBSM_INC,FSBSL_STA(R6); Fake INCLUDE'd file to get 


; read-only access 
#PASSC_NOCARR 3; carriage control -- not used 
Or PASSC_DFLIRECSE 


LEN_DISP(AP) 
POS"DISP(AP) 

LEN-DISP(AP) ,POS_DISP(AP) .R2 
@BUF _DISP(AP)CR2] 


R 
#7,G°PASSOPEN 
#FSBSM_INC,FSBSL_STA(R6); Unfake INCLUDE'd file 


R6 
#1, G“PASSRESET 
#F SBSM_RDLN,F SBSL_STA(R6) 


PAS$10_COMP 
Symbol “table 


$$. TMP 
$$. TMP2 


PASSIOERROR 
PASSOPEN 
PASSPUTMSG 


; PASCAL RMS Linkage 


eS thas heeds 
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SPEC _DISP 
SS$_NOTRAN 
SYSSGET 
SYSSPUTMSG 
SYSSTRNLOG 
SYSERR 
SYSOUT 
TAB_DISP 


TRANS 
TRM_DISP 
TRYRNXT 


~SEP-1984 
SEP=1984 


4 88:98: 
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N 3 
PAS$10_COMP ; PASCAL RMS Linkage 16-SEP-1984 02:08:13 
Psect Synopsis . gS EE obe $5: 98:37 
Fee eeeeeeeeeeseees + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 


. ABS . 00000000 ( 0.) 60 ( 0.) NOPIC USR CON ABS LCL N 
S$ 00000000 0.) O1¢ +1.) NOPIC USR CON ABS-~ LCL NO 
PASSCODE 00000474 ( 1140.) 02 ¢ 2.) PIC USR CON REL LCL 
pow meme teense ee mere ewan + 
! Performance indicators ! 
perm www me ener eee 
Phase Page faults CPU Time Elapsed Time 
Initialization | 31 00:00:00.07 00:00:00.72 
Command processing 106 00:00:00.55 00:00:02.26 
Pass 1 320 00:00:11.13 00:00:17.85 
Symbol table sort 0 00:00:01.49 00:00:02.49 
Pass 2 157 00:00:02.74 00:00:04.34 
Symbol table output 11 00:00:00.09 00:00:00.09 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 631 00:00:16.09 00:00:27.77 


The working set Limit was 1350 pages. , 

65039 bytes (128 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1155 non-local and 21 local symbols. 
849 source Lines were read in Pass 1, producing 37 object records in Pass 2 

17 pages of virtual memory were used to define 15 macros. 


$er ee eer re eee ere ee eee ene nema + 
! Macro library statistics ! 
+ 


Macro Library name Macros defined 
_$255$DUAZ8: (SYSLIBISTARLET.MLB; 2 prigcarsry” Ts 
1231 GETS were required to define 12 macros. 

There were no errors, warnings or information messages. 


MACRO/DISABLE=TRACE/LIS=L1IS$:PAS104/0BJ=OBJ$:PASIO4 MSRC$:PASIO4/UPDATE=(ENH$:PASI04) 


AX/VMS Macro V04-00 
PASCAL.SRCJPASIO4.MAR; 1 


OSHR NOEXE NORD NOWRT NO 
Hh EXE RD WRT 


) 


<v | 
+4 


293 AH-BT13A-SE—s_~s- : PMENT CORPORATION 
Lee oF, A 


VAX/VMS V4.0 Be “AND PROPRIETARY 


